www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\Label\custom_Label\会员系统标签库\nd_show_reg.asp
<%'$start_ext_newDsoft 以下系统生成,勿删!
'$newDsoft_label_type$:asp_label$end_newDsoft_label_type$
'$newDsoft_label_name$:show_reg$end_newDsoft_label_name$
'$newDsoft_label_sql$: $end_newDsoft_label_sql$
'$newDsoft_label_params$:$end_newDsoft_label_params$
'$newDsoft_label_fenye_num$: $end_newDsoft_label_fenye_num$
'$newDsoft_label_beizhu$:会员注册 表单$end_newDsoft_label_beizhu$
'$newDsoft_is_sys_label$:0$end_newDsoft_is_sys_label$
'$newDsoft_other_params$:htmledxa:3|htmledxb:$end_newDsoft_other_params$
'$end_ext_newDsoft%>
<%
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32
Private m_lOnBits(30)
Private m_l2Power(30)
Private Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And 1 Then
LShift = &H80000000
Else
LShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End If
If (lValue And m_l2Power(31 - iShiftBits)) Then
LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
Else
LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
End If
End Function
Private Function RShift(lValue, iShiftBits)
If iShiftBits = 0 Then
RShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And &H80000000 Then
RShift = 1
Else
RShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End If
RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)
If (lValue And &H80000000) Then
RShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1)))
End If
End Function
Private Function RotateLeft(lValue, iShiftBits)
RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))
End Function
Private Function AddUnsigned(lX, lY)
'dim lX4
'dim lY4
'dim lX8
'dim lY8
'dim lResult
lX8 = lX And &H80000000
lY8 = lY And &H80000000
lX4 = lX And &H40000000
lY4 = lY And &H40000000
lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)
If lX4 And lY4 Then
lResult = lResult Xor &H80000000 Xor lX8 Xor lY8
ElseIf lX4 Or lY4 Then
If lResult And &H40000000 Then
lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8
Else
lResult = lResult Xor &H40000000 Xor lX8 Xor lY8
End If
Else
lResult = lResult Xor lX8 Xor lY8
End If
AddUnsigned = lResult
End Function
Private Function md5_F(x, y, z)
md5_F = (x And y) Or ((Not x) And z)
End Function
Private Function md5_G(x, y, z)
md5_G = (x And z) Or (y And (Not z))
End Function
Private Function md5_H(x, y, z)
md5_H = (x Xor y Xor z)
End Function
Private Function md5_I(x, y, z)
md5_I = (y Xor (x Or (Not z)))
End Function
Private Sub md5_FF(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Private Sub md5_GG(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_G(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Private Sub md5_HH(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Private Sub md5_II(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_I(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Private Function ConvertToWordArray(sMessage)
'dim lMessageLength
'dim lNumberOfWords
'dim lWordArray()
'dim lBytePosition
'dim lByteCount
'dim lWordCount
Const MODULUS_BITS = 512
Const CONGRUENT_BITS = 448
lMessageLength = Len(sMessage)
lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD)
redim lWordArray(lNumberOfWords - 1)
lBytePosition = 0
lByteCount = 0
Do Until lByteCount >= lMessageLength
lWordCount = lByteCount \ BYTES_TO_A_WORD
lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)
lByteCount = lByteCount + 1
Loop
lWordCount = lByteCount \ BYTES_TO_A_WORD
lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition)
lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)
lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29)
ConvertToWordArray = lWordArray
End Function
Private Function WordToHex(lValue)
'dim lByte
'dim lCount
For lCount = 0 To 3
lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)
WordToHex = WordToHex & Right("0" & Hex(lByte), 2)
Next
End Function
Public Function MD5x(sMessage)
m_lOnBits(0) = CLng(1)
m_lOnBits(1) = CLng(3)
m_lOnBits(2) = CLng(7)
m_lOnBits(3) = CLng(15)
m_lOnBits(4) = CLng(31)
m_lOnBits(5) = CLng(63)
m_lOnBits(6) = CLng(127)
m_lOnBits(7) = CLng(255)
m_lOnBits(8) = CLng(511)
m_lOnBits(9) = CLng(1023)
m_lOnBits(10) = CLng(2047)
m_lOnBits(11) = CLng(4095)
m_lOnBits(12) = CLng(8191)
m_lOnBits(13) = CLng(16383)
m_lOnBits(14) = CLng(32767)
m_lOnBits(15) = CLng(65535)
m_lOnBits(16) = CLng(131071)
m_lOnBits(17) = CLng(262143)
m_lOnBits(18) = CLng(524287)
m_lOnBits(19) = CLng(1048575)
m_lOnBits(20) = CLng(2097151)
m_lOnBits(21) = CLng(4194303)
m_lOnBits(22) = CLng(8388607)
m_lOnBits(23) = CLng(16777215)
m_lOnBits(24) = CLng(33554431)
m_lOnBits(25) = CLng(67108863)
m_lOnBits(26) = CLng(134217727)
m_lOnBits(27) = CLng(268435455)
m_lOnBits(28) = CLng(536870911)
m_lOnBits(29) = CLng(1073741823)
m_lOnBits(30) = CLng(2147483647)
m_l2Power(0) = CLng(1)
m_l2Power(1) = CLng(2)
m_l2Power(2) = CLng(4)
m_l2Power(3) = CLng(8)
m_l2Power(4) = CLng(16)
m_l2Power(5) = CLng(32)
m_l2Power(6) = CLng(64)
m_l2Power(7) = CLng(128)
m_l2Power(8) = CLng(256)
m_l2Power(9) = CLng(512)
m_l2Power(10) = CLng(1024)
m_l2Power(11) = CLng(2048)
m_l2Power(12) = CLng(4096)
m_l2Power(13) = CLng(8192)
m_l2Power(14) = CLng(16384)
m_l2Power(15) = CLng(32768)
m_l2Power(16) = CLng(65536)
m_l2Power(17) = CLng(131072)
m_l2Power(18) = CLng(262144)
m_l2Power(19) = CLng(524288)
m_l2Power(20) = CLng(1048576)
m_l2Power(21) = CLng(2097152)
m_l2Power(22) = CLng(4194304)
m_l2Power(23) = CLng(8388608)
m_l2Power(24) = CLng(16777216)
m_l2Power(25) = CLng(33554432)
m_l2Power(26) = CLng(67108864)
m_l2Power(27) = CLng(134217728)
m_l2Power(28) = CLng(268435456)
m_l2Power(29) = CLng(536870912)
m_l2Power(30) = CLng(1073741824)
'dim x
'dim k
'dim AA
'dim BB
'dim CC
'dim DD
'dim a
'dim b
'dim c
'dim d
Const S11 = 7
Const S12 = 12
Const S13 = 17
Const S14 = 22
Const S21 = 5
Const S22 = 9
Const S23 = 14
Const S24 = 20
Const S31 = 4
Const S32 = 11
Const S33 = 16
Const S34 = 23
Const S41 = 6
Const S42 = 10
Const S43 = 15
Const S44 = 21
x = ConvertToWordArray(sMessage)
a = &H67452301
b = &HEFCDAB89
c = &H98BADCFE
d = &H10325476
For k = 0 To UBound(x) Step 16
AA = a
BB = b
CC = c
DD = d
md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478
md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756
md5_FF c, d, a, b, x(k + 2), S13, &H242070DB
md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE
md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF
md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A
md5_FF c, d, a, b, x(k + 6), S13, &HA8304613
md5_FF b, c, d, a, x(k + 7), S14, &HFD469501
md5_FF a, b, c, d, x(k + 8), S11, &H698098D8
md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF
md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1
md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE
md5_FF a, b, c, d, x(k + 12), S11, &H6B901122
md5_FF d, a, b, c, x(k + 13), S12, &HFD987193
md5_FF c, d, a, b, x(k + 14), S13, &HA679438E
md5_FF b, c, d, a, x(k + 15), S14, &H49B40821
md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562
md5_GG d, a, b, c, x(k + 6), S22, &HC040B340
md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51
md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA
md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D
md5_GG d, a, b, c, x(k + 10), S22, &H2441453
md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681
md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8
md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6
md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6
md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87
md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED
md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905
md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8
md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9
md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A
md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942
md5_HH d, a, b, c, x(k + 8), S32, &H8771F681
md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122
md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C
md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44
md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9
md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60
md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70
md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6
md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA
md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085
md5_HH b, c, d, a, x(k + 6), S34, &H4881D05
md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039
md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5
md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8
md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665
md5_II a, b, c, d, x(k + 0), S41, &HF4292244
md5_II d, a, b, c, x(k + 7), S42, &H432AFF97
md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7
md5_II b, c, d, a, x(k + 5), S44, &HFC93A039
md5_II a, b, c, d, x(k + 12), S41, &H655B59C3
md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92
md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D
md5_II b, c, d, a, x(k + 1), S44, &H85845DD1
md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F
md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0
md5_II c, d, a, b, x(k + 6), S43, &HA3014314
md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1
md5_II a, b, c, d, x(k + 4), S41, &HF7537E82
md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235
md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB
md5_II b, c, d, a, x(k + 9), S44, &HEB86D391
a = AddUnsigned(a, AA)
b = AddUnsigned(b, BB)
c = AddUnsigned(c, CC)
d = AddUnsigned(d, DD)
Next
MD5x=LCase(WordToHex(b) & WordToHex(c)& WordToHex(a)& WordToHex(b)& WordToHex(c)& WordToHex(a))
End Function
Public Function MD5(sMessage)
MD5=MD5x(MD5x(MD5x(MD5x(sMessage))))
End Function
%><%
Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" Or InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
Actforip = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
Actforip = Request.ServerVariables("REMOTE_ADDR")
Else
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
Actforip = Request.ServerVariables("REMOTE_ADDR")
End If
getIP = Replace(Trim(Mid(strIPAddr, 1, 30)), "'", "")
End Function
function showerr(str)
%>
<div><br />
<br />
</div>
<table cellspacing="0" cellpadding="1" width="430" align="center" border="1">
<tbody>
<tr>
<td align="center" width="424" bgcolor="#9aaffa" height="25"><strong><font color="#ffffff">出错了!</font></strong></td>
</tr>
<tr>
<td align="center" height="127">出错原因:<br />
<%=str%><br />
<a href="javascript:history.go(-1)">返回</a></td>
</tr>
</tbody>
</table>
<div><br />
<br />
</div>
<%
end function
'****************************************************
'参数说明
'Subject : 邮件标题
'Email : 收件人邮件地址
'Content : 邮件内容
'is_for_qiye_mail 企业子系统不?
'****************************************************
is_for_qiye_mail=0
Public Function SendMailb(Subject, Email, Content)
'
On Error Resume Next
SendMailb="not_suputted"
biao2="[ND_sys]"
if is_for_qiye_mail=1 then
biao2="[ND_sys]"
set rs22t=server.CreateObject("adodb.recordset")
rs22t.open "select top 1 * from "&biao2&" where type='config_settings_qiye'",newdsoft_conn_obj,1,1
else
set rs22t=server.CreateObject("adodb.recordset")
rs22t.open "select top 1 * from "&biao2&" where type='config_settings'",newdsoft_conn_obj,1,1
end if
ddd1tt=rs22t("data")
dddd12tt=split(ddd1tt,"|")
SiteNamexx=cstr(trim(dddd12tt(2)&" "))
comtype=cstr(dddd12tt(7))
if comtype="0" then
SendMailb ="not_suputted"
exit function
end if
LoginName=cstr(trim(dddd12tt(10)&" "))
LoginPass=cstr(trim(dddd12tt(11)&" "))
MailAddress=cstr(trim(dddd12tt(9)&" "))
Fromer=cstr(trim(dddd12tt(8)&" "))
if comtype="1" then
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentType = "text/html" '邮件的格式为HTML格式
jmail.AddRecipient Email '邮件收件人的地址
jmail.From = Fromer '发件人的E-MAIL地址
jmail.FromName = SiteNamexx
If LoginName <> "" And LoginPass <> "" Then
JMail.MailServerUserName = LoginName '您的邮件服务器登录名
JMail.MailServerPassword = LoginPass '登录密码
End If
If Err Then
SendMailb ="not_suputted"
exit function
end if
jmail.Subject = Subject '邮件的标题
JMail.Body = Content
JMail.Priority = 1'邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
Flagaa=jmail.Send(MailAddress) '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
Set JMail = Nothing
If Flagaa Then
SendMailb = "OK"
Else
SendMailb = "False"
End If
Exit function
end if
if comtype="2" then
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = Fromer '邮件地址
objCDOMail.To = Email
objCDOMail.Subject = Subject
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body = Content
If Err <> 0 Then
SendMailb="not_suputted"
Else
objCDOMail.Send
If Err <> 0 Then
SendMailb="False"
Else
SendMailb="OK"
End If
End If
Set objCDOMail = Nothing
exit function
end if
if comtype="3" then
Set Mailer=Server.CreateObject("Persits.MailSender")
Mailer.Charset = "gb2312"
Mailer.IsHTML = True
Mailer.username = LoginName '服务器上有效的用户名
Mailer.password = LoginPass '服务器上有效的密码
Mailer.Priority = 1
'Mailer.Host =
Mailer.Host =MailAddress
Mailer.Port = 25 ' 该项可选.端口25是默认值
Mailer.From = Fromer '邮件地址
Mailer.FromName = SiteNamexx ' 该项可选
Mailer.AddAddress Email,Email
Mailer.Subject = Subject
Mailer.Body = Content
If Err <> 0 Then
SendMailb="not_suputted"
Else
Mailer.Send
If Err <> 0 Then
SendMailb="False"
Else
SendMailb="OK"
End If
End If
Set Mailer = Nothing
exit function
end if
if comtype="CDO.Message" then
If Not IsObject(cdoConfig) Then
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "smtpserver") = MailAddress '--SMTP 服务器
'.Item(sch & "smtpserverport") = 25
.Item(sch & "sendusing") = 2
.Item(sch & "smtpaccountname") = SiteNamexx
.Item(sch & "sendemailaddress") = Fromer
.Item(sch & "smtpuserreplyemailaddress") = 25
'.Item(sch & "smtpauthenticate") = cdoBasic
.Item(sch & "sendusername") = LoginName
.Item(sch & "sendpassword") = LoginPass
.update
End With
If Err<>0 Then
SendMailb="False"
exit function
End If
End If
Set Obj = Server.CreateObject("CDO.Message")
With Obj
Set .Configuration = cdoConfig
.To = Email
.Subject = Subject
.TextBody = Content
.Send
End With
Set Obj = Nothing
Set cdoConfig = Nothing
If Err<>0 Then
SendMailb="False"
Else
SendMailb="OK"
End If
exit function
end if
end function
'判断EMAIL是否正确
Function IsValidEmail(email)
IsValidEmail = true
names = Split(email, "@")
If UBound(names) <> 1 Then
IsValidEmail = false
Exit Function
End If
For Each Name in names
If Len(Name) <= 0 Then
IsValidEmail = false
Exit Function
End If
For i = 1 To Len(Name)
c = LCase(Mid(Name, i, 1))
If InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 And Not IsNumeric(c) Then
IsValidEmail = false
Exit Function
End If
Next
If Left(Name, 1) = "." Or Right(Name, 1) = "." Then
IsValidEmail = false
Exit Function
End If
Next
If InStr(names(1), ".") <= 0 Then
IsValidEmail = false
Exit Function
End If
i = Len(names(1)) - InStrRev(names(1), ".")
If i <> 2 And i <> 3 Then
IsValidEmail = false
Exit Function
End If
If InStr(email, "..") > 0 Then
IsValidEmail = false
End If
End Function
biao2="[ND_sys]"
set rs22=server.CreateObject("adodb.recordset")
rs22.open "select top 1 * from "&biao2&" where type='config_settings'",newdsoft_conn_obj,1,1
ddd1=rs22("data")
dddd12=split(ddd1,"|")
can_zhu=dddd12(12)
unreg=dddd12(20)
ddian=dddd12(17)
isneedshenhe=dddd12(13)
is_email_pwd=cstr(dddd12(14))
is_only_email=cstr(dddd12(15))
is_sendmail=cstr(dddd12(16))
if request("do")="1" then
errr=0
str=""
if cstr(can_zhu)<>"1" then
errr=1
str=str&"网站暂停了新用户注册，注册操作当前被禁止!<br>"
end if
if trim(unreg)<>"" and trim(request("nam"))<>"" then
unregt=split(trim(unreg),",")
for ithi=0 to ubound(unregt)
if instr(1,lcase(trim(request("nam"))),lcase(unregt(ithi)),1)<>0 or instr(1,lcase(trim(request("nam"))),"'",1)<>0 then
errr=1
str=str&"用户名中含有非法字符或含禁止注册的字符!<br>"
exit for
end if
next
end if
if trim(request("nam"))="" then
err1=1
str= str&"请填写用户名<br>"
end if
if trim(request("pwd"))="" and is_email_pwd="0" then
err1=1
str= str&"请填写用户密码<br>"
end if
if request("ques")="" and is_email_pwd="0" then
err1=1
str= str&"请填写 密码保护问题<br>"
end if
if request("daan")="" and is_email_pwd="0" then
err1=1
str= str&"请填写 密码保护答案<br>"
end if
If request("ccode") = "" Then
errr=1
str= str& "验证码不能为空！<br>"
End If
If Trim(Session("CheckCode")) = "" Then
errr=1
str= str&"你登录时间过长，请重新返回登录页面进行登录。<br>"
End If
If request("ccode") <> Session("CheckCode") Then
errr=1
str= str& "您输入的验证码和系统产生的不一致，请重新输入。<br>"
End If
if trim(request("em"))<>"" then
if IsValidEmail(trim(request("em")))<>true then
errr=1
str= str& "email地址的格式有误!<br>"
end if
end if
if is_email_pwd="0" and trim(request("em"))="" then
errr=1
str= str& "请输入email地址。<br>"
End If
if errr=0 then
if is_only_email="1" then
set rs2c2m=server.CreateObject("adodb.recordset")
rs2c2m.open "select * from [ND_user] where [email]='"&trim(request("em"))&"'",newdsoft_conn_obj,1,1
if not rs2c2m.eof then
errr=1
str= str& "此email地址已被一个用户注册,请换一个email地址<br>"
end if
end if
if errr=0 then
set rs2c2=server.CreateObject("adodb.recordset")
rs2c2.open "select * from [ND_user] where [username]='"&trim(request("nam"))&"'",newdsoft_conn_obj,1,3
if not rs2c2.eof then
errr=1
str= str& "此用户名已被注册,请换一个用户名<br>"
else
rs2c2.addnew
rs2c2("username")=trim(request("nam"))
if cstr(isneedshenhe)="1" then
rs2c2("user_stutas")="0"
shshstrr="您的帐户正在等待管理员审核,请等待"
else
rs2c2("user_stutas")="1"
shshstrr="请用它们来登陆"
end if
if is_email_pwd="0" then
rs2c2("pwd")=md5(request("pwd"))
pssspwd=request("pwd")
else
Randomize '初始化随机数生成器。
rnddd = cstr(clng(Rnd(255)*99999))&cstr(clng(Rnd(255)*99999)) '产生随机数
pssspwd=rnddd
If Request.ServerVariables("SERVER_PORT") = "80" Then
GetSiteUrl = "http://" & Request.ServerVariables("server_name")
Else
GetSiteUrl = "http://" & Request.ServerVariables("server_name") & ":" & Request.ServerVariables("SERVER_PORT")
End If
weerbnamb = GetSiteUrl
Email=trim(request("em"))
Subject="这是您的登陆密码,请注意查收(来自"&weerbnamb&")"
Content="您的登陆密码是"&rnddd&" ,您注册的用户名是"&trim(request("nam"))&","&shshstrr&" (邮件来自"&weerbnamb&")"
restss=SendMailb(Subject, Email, Content)
if restss="not_suputted" then
errr=1
str=str& "发送 您的登陆密码到您指定的邮箱时发生错误(原因:服务器不支持邮件发送组件或您未在基本设置里指定邮件发送组件)，注册失败!<br>"
end if
if restss="OK" then
rs2c2("pwd")=md5(rnddd)
end if
if restss="False" then
errr=1
str=str&"发送您的登陆密码到您指定的邮箱时发生错误(原因:发送失败,可能您在基本设置里指定的邮件登陆用户名或密码是错误的)，注册失败!<br>"
end if
end if
if request("ques")<>"" and request("daan")<>"" then
rs2c2("pwd_wenti")=request("ques")
rs2c2("pwd_daan_md5")=md5(request("daan"))
end if
rs2c2("denglu_count")="0"
rs2c2("uesrclass")="0"
rs2c2("qq")=trim(request("qq"))
rs2c2("nick")=request("nick")
rs2c2("email")=request("em")
rs2c2("sex")=request("cc1")
rs2c2("touxiang")=request("faceb")
rs2c2("lever_id")=2
if isnumeric(ddian)<>true then
ddiana=0
else
ddiana=clng(ddian)
end if
rs2c2("dianshuo")=ddiana
rs2c2("regtime")=now()
rs2c2("reg_ip")=getIP()
if errr=0 then
'---------------------bbs reg
rs2c2("ch")=120
rs2c2("ku")=120
rs2c2("home")="http://"
rs2c2("gxqm")=" "
rs2c2("qian")=1000
rs2c2("meili")=200
rs2c2("jingyan")=200
'---------------------end bbs reg
rs2c2.update
if is_sendmail="1" and trim(request("em"))<>"" then
Email=trim(request("em"))
Subject="注册成功,用户名:"&trim(request("nam"))&" (来自"&weerbnamb&")"
Content="注册成功,您的登陆密码是"&pssspwd&" ,您注册的用户名是"&trim(request("nam"))&","&shshstrr&" (邮件来自"&weerbnamb&")"
restss=SendMailb(Subject, Email, Content)
end if
response.write "<script language=javascript>alert('注册成功,正在进入会员中心...');self.location='$page$vip_center_page$';</script>"
end if
end if
end if
end if
if errr=1 then
call showerr(str)
end if
else
if request("agree")="1" then
%>
<form action="<%=fileNamexx%>" method="post">
<table width="641">
<tbody>
<tr>
<td align="center" width="115" bgcolor="#ffffff" height="27"><strong>用户名：</strong></td>
<td align="left" width="390" bgcolor="#edf8fe" colspan="3"><input id="nam" size="50" name="nam" type="text" /> <font color="#ff0000">*</font></td>
</tr>
<%if is_email_pwd="0" then%>
<tr>
<td align="center" width="115" bgcolor="#ffffff" height="27"><strong>用户密码：</strong></td>
<td align="left" width="390" bgcolor="#edf8fe" colspan="3"><input id="pwd" type="password" size="50" name="pwd" /> <font color="#ff0000">*</font></td>
</tr>
<tr>
<td align="center" width="115" bgcolor="#ffffff" height="27"><strong>密码保护问题：</strong></td>
<td align="left" width="390" bgcolor="#edf8fe" colspan="3"><input id="ques" size="50" name="ques" type="text" /> <font color="#ff0000">*</font></td>
</tr>
<tr>
<td align="center" width="115" bgcolor="#ffffff" height="27"><strong>密码保护答案：</strong></td>
<td align="left" width="390" bgcolor="#edf8fe" colspan="3"><input id="daan" size="50" name="daan" type="text" /> <font color="#ff0000">*</font></td>
</tr>
<%end if%>
<tr>
<td align="center" width="115" bgcolor="#ffffff" height="27"><strong>用户昵称：</strong></td>
<td align="left" width="390" bgcolor="#edf8fe" colspan="3"><input id="nick" size="50" name="nick" type="text" /></td>
</tr>
<tr>
<td align="center" width="115" bgcolor="#ffffff" height="27"><strong>用户QQ：</strong></td>
<td align="left" width="390" bgcolor="#edf8fe" colspan="3"><input id="qq" size="50" name="qq" type="text" /></td>
</tr>
<tr>
<td align="center" width="115" bgcolor="#ffffff" height="27"><strong>用户邮箱：</strong></td>
<td align="left" width="390" bgcolor="#edf8fe" colspan="3"><input id="em" size="50" name="em" type="text" /></td>
</tr>
<tr>
<td align="center" width="115" bgcolor="#ffffff" height="27"><strong>用户姓别：</strong></td>
<td align="left" width="390" bgcolor="#edf8fe" colspan="3"><input type="radio" checked="checked" name="cc1" value="1" /> 男   <input type="radio" name="cc1" value="0" /> 女 <font color="#ff0000">*</font></td>
</tr>
<tr>
<td align="center" width="115" bgcolor="#ffffff" height="27"><strong>用户头像：</strong></td>
<td align="left" width="460" bgcolor="#edf8fe" colspan="3"><img height="60" alt="" width="60" align="absMiddle" src="/images/touxiang/image1.GIF" /> <input type="radio" checked="checked" onClick='faceb.value=this.value;' name="face" value="/images/touxiang/Image1.gif" /> <% for i=2 to 5 %><img height="60" alt="" width="60" align="absMiddle" src="/images/touxiang/image<%=i%>.GIF" /> <input type="radio" onClick="faceb.value=this.value;" name="face" value="/images/touxiang/Image<%=i%>.gif" /> <%next%><br />
<% for i=6 to 10 %><img height="60" alt="" width="60" align="absMiddle" src="/images/touxiang/image<%=i%>.GIF" /> <input type="radio" onClick="faceb.value=this.value;" name="face" value="/images/touxiang/Image<%=i%>.gif" /> <%next%><br />
<% for i=11 to 15 %><img height="60" alt="" width="60" align="absMiddle" src="/images/touxiang/image<%=i%>.GIF" /> <input type="radio" onClick="faceb.value=this.value;" name="face" value="/images/touxiang/Image<%=i%>.gif" /> <%next%><br />
<% for i=16 to 20 %><img height="60" alt="" width="60" align="absMiddle" src="/images/touxiang/image<%=i%>.GIF" /> <input type="radio" onClick="faceb.value=this.value;" name="face" value="/images/touxiang/Image<%=i%>.gif" /> <%next%><br />
<% for i=21 to 25 %><img height="60" alt="" width="60" align="absMiddle" src="/images/touxiang/image<%=i%>.GIF" /> <input type="radio" onClick="faceb.value=this.value;" name="face" value="/images/touxiang/Image<%=i%>.gif" /> <%next%><br />
<% for i=26 to 30 %><img height="60" alt="" width="60" align="absMiddle" src="/images/touxiang/image<%=i%>.GIF" /> <input type="radio" onClick="faceb.value=this.value;" name="face" value="/images/touxiang/Image<%=i%>.gif" /> <%next%><br />
<% for i=31 to 35 %><img height="60" alt="" width="60" align="absMiddle" src="/images/touxiang/image<%=i%>.GIF" /> <input type="radio" onClick="faceb.value=this.value;" name="face" value="/images/touxiang/Image<%=i%>.gif" /> <%next%></td>
</tr>
<tr>
<td align="center" width="115" bgcolor="#ffffff" height="27"><strong>自定义头像地址：</strong></td>
<td align="left" width="390" bgcolor="#edf8fe" colspan="3"><input id="faceb" size="50" name="faceb" value="/images/touxiang/Image1.gif" type="text" /></td>
</tr>
<tr>
<td align="center" width="115" bgcolor="#ffffff" height="27"><strong>验证码：</strong></td>
<td align="left" width="390" bgcolor="#edf8fe" colspan="3"><input id="ccode" size="14" name="ccode" type="text" />  请输入<img id="chcodeimg" alt="" src="../inc/checkcode.asp" /></td>
</tr>
<%
'以下这句可以防止重新返回本页后 验证码不刷新而 导致的验证码总为空 而导致的登陆不了
if session("CheckCode")="" then
'防止刷新后不行又自动不断刷新，最大重试次数限制为max_r_c_ci
max_r_c_ci=0
if session("CheckCode_r_count")="" then
session("CheckCode_r_count")=1
else
session("CheckCode_r_count")=session("CheckCode_r_count")+1
end if
if session("CheckCode_r_count")>=max_r_c_ci then
session("CheckCode_r_count")=1
else
%><script language=javascript>
window.location.reload();
</script><%
end if
else
session("CheckCode_r_count")=1
end if
%>
<tr>
<td align="center" colspan="4"><input type="hidden" name="do" value="1" /> <input type="submit" value="提 交" /></td>
</tr>
</tbody>
</table>
</form>
<%
else
biao2="[ND_sys]"
set rs22=server.CreateObject("adodb.recordset")
rs22.open "select top 1 * from "&biao2&" where type='config_settings'",newdsoft_conn_obj,1,1
ddd1=rs22("data")
dddd12=split(ddd1,"|")
law="<textarea rows=24 cols=65 readonly=readonly>"&cstr(dddd12(21))&"</textarea>"
'获取自身文件名
aryxx =split(Request.ServerVariables("SCRIPT_NAME"),"/")
fileNamexx = aryxx(ubound(aryxx))
%>
<form action="<%=fileNamexx%>" method="post">
<table width="500">
<tbody>
<tr>
<td align="center"><%=law%></td>
</tr>
<tr>
<td align="center"><input type="hidden" name="agree" value="1" /> <input type="hidden" name="do" value="0" /> <input type="submit" value="我同意" />  <input type="button" onClick="window.close()" value="我不同意" /></td>
</tr>
</tbody>
</table>
</form>
<%
end if
end if
%>